home *** CD-ROM | disk | FTP | other *** search
/ Web Star/List Star - Eve…he Ultimate Internet Site / StarNine Internet Pubisher (Web Star and List Star)(StarNine)(1995).iso / ListSTAR™ / Tools and Enhancments / Enhancing ListSTAR Digests / Make TOC v3.0.5 < prev    next >
Encoding:
Text File  |  1995-08-04  |  1.9 KB  |  38 lines  |  [TEXT/ToyS]
  1. -----------------------------------------------------------------------
  2. -- StarNine Technologies, Inc., hereby disclaims all copyright interest
  3. -- in the following source code written by Jon Stevens (jon@aggroup.com),
  4. -- Ken Sayward (sayward@ae.vitro.com), & Joshua D. Baer.
  5. -- 
  6. -- This source code is free and has been placed into the public domain.
  7. -- You can redistribute it, modify it (including these comments) and/or
  8. -- create derivative works from it as you see fit.
  9. --
  10. -- This source code is made available in the hope that it will be useful,
  11. -- but WITHOUT ANY WARRANTY; without even the implied warranty of
  12. -- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  13. -----------------------------------------------------------------------
  14.  
  15. (* This script must remain UNCOMPILED, because ListSTAR needs to prepend 
  16. the s9MailSubject from an incoming message before compilation/execution. *)
  17.  
  18. (* Configure. You MUST change these values!*)
  19. -- the path to the Digests Data directory...the Digests Data directory should contain the TOC file.
  20. property thePath : "Volume Name:ListSTAR/SMTP:Services:Listserver Demo Digest:Digests Data:"
  21. --the name of the data files, in the example this is "Test"
  22. property filename : "Test"
  23. --the path to the "Make Digests" script library
  24. property ScriptLibraryPath : "Volume Name:ListSTAR/SMTP:AppleScripts:Make Digests v3.0.5"
  25. -- set this to true if you want HTML digests sent to the list, set it to false if you want normal mail
  26. property HTML_on_outgoing : false
  27. (*End configure section *)
  28.  
  29. --get the mail sender name
  30. set senderName to s9SenderName
  31. if senderName is "" then set senderName to s9SenderEmailAddress
  32.  
  33. set theScript to load script (alias ScriptLibraryPath)
  34. --display dialog "Worked" buttons {"OK"}
  35. --tell (load script ScriptLibraryPath) to makeTOC(thePath, filename, s9MailSubject)
  36. tell theScript to makeTOC(thePath, filename, s9MailSubject, senderName, HTML_on_outgoing)
  37.  
  38. return 1